<script>on mouseUpput "This feature will be added in version 3.0. Right now you can use the Mini Cookbook "¬& "to plan your meals. 3.0 is planned for '96 & FREE to registered users." into TheMessageoops TheMessageend mouseUpon mouseenterFullBalloons showDirect,"This feature is not added yet, click me for more info."¬&& "(The Title Screen.)"end mouseenter</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>615</left>
<top>154</top>
<right>640</right>
<bottom>282</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpplay "click"set cursor to watchglobal Categoryput bg field "Category" into Categoryif the optionKey is downthensend "ShowMe" && quote & Category & quote to bg field "Recipe Names" of card CategoryelseGoCategoryend ifend mouseUpon mouseenterFullBalloons showDirect,"Click me view the current category's index. Option click me"¬&&"to get a floating window of the category index."end mouseenter</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>572</left>
<top>348</top>
<right>605</right>
<bottom>398</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>22702</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseDownplay "click"mouseStillDownend mouseDownon mouseStillDown-- go next card of this bg --nextcardwait until the sound is doneend mouseStillDownon mouseenterFullBalloons showDirect,"Click me to go to the next recipe."end mouseenter</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>538</left>
<top>348</top>
<right>571</right>
<bottom>398</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>22701</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on mouseDownplay "click"mouseStillDownend mouseDownon mouseStillDownwait until the sound is doneprevcardend mouseStillDownon mouseenterFullBalloons showDirect,"Click me to go to the next recipe."end mouseenter</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>41</left>
<top>33</top>
<right>137</right>
<bottom>51</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>15</textSize>
<textStyle>bold</textStyle>
<textHeight>20</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>248</left>
<top>33</top>
<right>340</right>
<bottom>51</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>15</textSize>
<textStyle>bold</textStyle>
<textHeight>20</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>41</left>
<top>5</top>
<right>236</right>
<bottom>31</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>18</textSize>
<textStyle>bold</textStyle>
<textHeight>24</textHeight>
<name>Category</name>
<script>on mouseenterif the mouseLoc is within the Rect of methenFullBalloons showDirect,"CATEGORY NAME:" & Return & "To change the category for this recipe:"¬& return &"(1) Unlock the recipe by clicking the pad lock looking button below."¬& return & "(2) I become a pop up menu that you can select a new category from!" & return & "(How wonderfully simple.)"end ifend mouseenteron BalloonItsend MouseEnter to meend BalloonIt</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>239</left>
<top>5</top>
<right>604</right>
<bottom>31</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Helvetica</font>
<textSize>18</textSize>
<textStyle>bold</textStyle>
<textHeight>24</textHeight>
<name>Recipe Name</name>
<script>on mouseupif the style of me is Shadowthenplay "Click"Put me into OldNameask "What do you want to change the name to?" with OldNameif it is empty OR it is OldName then exit mouseupelseif there is a card itthenbeepanswer "Sorry, a recipe by this name already exists. Try another name besides:" && it with "oops"exit mouseupelseset cursor to watchput it into NewNameput ChangeTheCase (NewName) into NewNameif length of NewName > 33 then put char 1 to 33 of NewName into NewNameif there is not a card bg field "Category" thenAnswer "This program appears to need minor repairs. Please stop now and choose REPAIR THIS COOKBOOK"¬&& "from the EDIT menu."exit mouseupend ifput bg field "Recipe Names" of card (bg field "Category") into TheCatListput offset(oldName,TheCatList) into StartPointput the number of characters in OldName + StartPoint -1 into EndPointput NewName into char StartPoint to Endpoint of TheCatListsort lines of theCatListput theCatList into bg field "Recipe Names" of card (bg field "Category")put NewName into meset the name of this card to NewNameif there is a window (bg field "Category")then set text of window (bg field "Category") to TheCatListset lockmessages to truelock screenpush cardsort cards by (bg field "Category" && bg field "Recipe Name")pop cardnumbercardset lockmessages to falseend ifend ifend ifend mouseupon MouseEnterBalloonItend MouseEnteron BalloonItif the mouseLoc is within the Rect of methenFullBalloons showDirect,"RECIPE NAME:" & Return & "To edit this name:"¬& return &"(1) Unlock the recipe by clicking the pad lock looking button below."¬& return & "(2) Click on me!" & return & "(How wonderfully simple.)"end ifend BalloonIt</script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>41</left>
<top>51</top>
<right>223</right>
<bottom>346</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Ingredients</name>
<script>on arrowKey directionif direction = "up" then type "/"else pass arrowkeybeepend arrowkey directionon mouseenterput "INGREDIENTS:" & RETURN & "• You can view this recipe's information at a bigger" ¬&& "size by double clicking on me." & return ¬& return & "• To Edit this information unlock the recipe by" ¬&& "clicking the pad lock button above." into TheMessageif the mouseLoc is within the Rect of methen FullBalloons showDirect,TheMessageend mouseenteron BalloonItsend MouseEnter to meend BalloonIton mouseDoubleClickplay "Click"ShowMeAsWindowend mouseDoubleClickon ShowMeAsWindowset cursor to watchput bg field "recipe name" into WindowNameif there is not a window WindowNamethenput (the left of me) & "," & the top of me & "," &¬the right of bg field "Directions" & "," & (the bottom of me) into TheRectput me & return & "____________________" & return & return & bg Field "directions"¬into TheInfotextoid WindowName,TheInfo,BigWindoidZoom,"0 0 0,47362 29190 29190",TheRect¬,true,the textFont of me,(the textSize of me) + 4,Boldset the textWrap of window WindowName to trueset the locktext of window WindowName to trueelseshow window WindowNameend ifend ShowMeAsWindow-- on closefield-- global ImportMode-- if importMode is true-- then-- select text of me-- domenu "10"-- put "false" into importMode-- select empty-- end if-- end closefield</script>
</part>
<part>
<id>15</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>248</left>
<top>51</top>
<right>604</right>
<bottom>346</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>Directions</name>
<script>on mouseenterput "DIRECTIONS:" & RETURN & "• You can view this recipe's information at a bigger" ¬&& "size by double clicking on me." & return ¬& return & "• To Edit this information unlock the recipe by" ¬&& "clicking the pad lock button above." into MyMessageif the mouseLoc is within the Rect of methen FullBalloons showDirect,MyMessageend mouseenteron BalloonItsend MouseEnter to meend BalloonIton mouseDoubleClicksend mouseDoubleClick to bg field "Ingredients"end mouseDoubleClick</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>348</top>
<right>455</right>
<bottom>398</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>144</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>italic</textStyle>
<name>Lock</name>
<script>on mouseUpset cursor to watchset hilight of me to trueif icon of me = 145then lockCardelse unlockCardset hilight of me to falseend mouseUpon lockCardplay "unlock"global ColorONlock screenset icon of me to "locked"set locktext of bg field "Ingredients" to trueset locktext of bg field "Directions" to truehide bg button "CategoryButton"set style of bg field "Recipe Name" to Transparentif ColorON is true then addColor ColorCard,stamp,1-- set name of me to "locked"end lockCardon unlockCardplay "unlock"global ColorONlock screenset icon of me to "unlocked"set locktext of bg field "Ingredients" to falseset locktext of bg field "Directions" to falsesend "SetMeUP" to bg button "CategoryButton"set style of bg field "Recipe Name" to Shadowif there is a window (bg field "Recipe Name") then close window (bg field "Recipe Name")if ColorON is truethenaddColor ColorCard,stamp,1-- addColor colorfield,"bg",11,"52428,52428,52428",2end if-- set name of me to "unlocked"unlock screenend unlockCardon mouseenterFullBalloons showDirect,"Click me unlock this recipe so it can be edited."end mouseenter</script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>517</left>
<top>33</top>
<right>604</right>
<bottom>49</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Page</name>
<script>on mouseupask "Go to what page? (Max:" && last word of me & ")" with first word of me + 1if it = "cancel" then exit mouseupif there is a card it of this bg then go card it of this bgend mouseupon mouseenterFullBalloons showDirect,"Click me to go to any page number."end mouseenter</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>456</left>
<top>349</top>
<right>497</right>
<bottom>398</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>22007</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Print</name>
<script>on mouseUpplay "Click"PrintRecipeend mouseUpon mouseenterFullBalloons showDirect,"Click me to print out a quick copy of this recipe alone."¬&&"You also can print multiple copies of a recipe to give to your friends."end mouseenter</script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>264</top>
<right>40</right>
<bottom>296</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Cut</name>
<script>on mouseUplock screen-- GET NAMEput bg field "Recipe Name" into Nameput bg field "Category" into Category-- CONFIRM DELETEAnswer "Delete" && Name & "?" with "Yes!" or "Cancel"If it = "cancel"thenexit mouseupend ifset cursor to watch-- GO TO NEXT RECIPEPUSH THE NEXT CARD OF THIS BG-- ACTUALLY DELETE THE RECIPEgo card Categorytype "Send" && Quote & "FindIt Name" & Quote && "to bg button Cut" & returnpop cardunlock screen with visual dissolve very fastend mouseUp</script>
</part>
<part>
<id>29</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>11</left>
<top>106</top>
<right>180</right>
<bottom>295</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Batch</name>
<script>on mousedownhide meend mousedown</script>
</part>
<part>
<id>34</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>28</left>
<top>264</top>
<right>74</right>
<bottom>289</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Continue</name>
<script>-- this field exists so I don't have to completely change the code-- to import recipeson mouseuphide meend mouseup</script>
</part>
<part>
<id>35</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>41</left>
<top>5</top>
<right>236</right>
<bottom>31</bottom>
</rect>
<style>popup</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<selectedLines>
<integer>4</integer>
</selectedLines>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>15</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<name>CategoryButton</name>
<script>on mouseDownplay "click"end MouseDownon mouseUpChangeCategoryend mouseUpon SetMeUplock screenshow meput bg field "Table Of Contents" of Card 2 into merepeat with x = 1 to the number of lines in meif line x of me = bg field "Category"thenselect line x of meunlock screenexit SetMeUpend ifend repeatAnswer "This program appears to need minor repairs. Please stop now and choose REPAIR THIS COOKBOOK"¬&& "from the EDIT menu."end SetMeUPon ChangeCategory NewCategoryif NewCategory is empty then put the SelectedTExt of me into NewCategoryif NewCategory = bg field "Category" then exit ChangeCategoryelseset cursor to watch-- FIRST DELETE RECIPE FROM OLD CATEGORY LISTput bg field "Recipe Name" into RecipeNameput bg field "Recipe Names" of card (bg field "Category") into OldCatListput offset(RecipeName,OldCatList) into StartPointput the number of characters in RecipeName + StartPoint into EndPoint -- deletes name and return markput empty into char StartPoint to Endpoint of OldCatListput OldCatList into bg field "Recipe Names" of card (bg field "Category")if there is a window (bg field "Category")then set text of window (bg field "Category") to OldCatList-- THEN ADD RECIPE TO NEW CATEGORY LISTput NewCategory into bg field "Category"put bg field "Recipe Names" of card (bg field "Category") into TheCatListput RecipeName & return before TheCatListsort lines of TheCatList-- put theCatList into bg field Directionsput TheCatList into bg field "Recipe Names" of card (bg field "Category")if there is a window (bg field "Category")then set text of window (bg field "Category") to TheCatList-- SORT THE CARDSset lockmessages to truelock screenpush cardsort cards by (bg field "Category" && bg field "Recipe Name")pop cardNumberCardset lockmessages to falseend ifend ChangeCategoryon mouseenterFullBalloons showDirect,"This is the category for this recipe. To change the category for this recipe:"¬& return &"(1) Unlock the recipe by clicking the pad lock looking button to the right."¬& return & "(2) I will then turn into a pop up menu from which you can choose a different category." & return & "How simple!"end mouseenter</script>
</part>
<part>
<id>37</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>29</left>
<top>264</top>
<right>144</right>
<bottom>285</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>import & export</name>
<script>on mouseUp-- answer "Do you want to HIDE me?" with yes or no-- if it is yes then hide meANSWER "IMPORT OR EXPORT" WITH Import OR EXPORTIF IT IS IMPORT THEN IMPORTIF IT IS EXPORT THEN ExportSetUpend mouseUp-----------------------------------------------------------------------------------------------importing-----------------------------------------------------------------------------------------------on IMPORTset lockMessages to trueset lockRecent to trueanswer file "Select a text file:" -- of type "TEXT" -- may not want to limitif it is empty then exit IMPORTset cursor to watchput it into inFileopen file infileif the result is not emptythenanswer the resultexit IMPORTend ifread from file infile until returnif it = "Amy's Recipes 2.x File:" & return then ImportARfileOLD inFileelse if it = "Amy's Recipes 2.3 File:" & return then ImportARFile inFileelse importAnyTEXT inFileclose file infileend IMPORTon ImportARfileOLD infile -- for Amy's Recipes 2.2 files (files with limited categories)global Category--Answer "This is an older Amy's Recipes File. If importing fails, simply increase the" && ¬"application memory available to this program. Older files take more memory to import" && ¬"than the new files because of the way they were structured."-- READS THE FILE AND COUNTS THE RECIPES --------------------------------------------put "Counting Recipes..."close file infileopen file infileread from file infile until endclose file infileput it into InFileTextset itemDelimiter to "∞"put the number of items in inFileText into RecipeNumber-- BUILDS AN ORIGINAL RECIPES IN THE FILE --------------------------------------------put empty into InFileIndexPicture "PleaseWait",resource,Dialogrepeat with x = 1 to RecipeNumberput "Finding Original Recipes (" & x & "/" & RecipeNumber & ")"set cursor to busyput (line 3 of item x of INfileText) into TempStorset ItemDelimiter to ":"delete char 1 of item 2 of TempStorif there is not a card (item 2 of TempStor)thenput item 2 of TempStor & "," & x & return after InFileIndexput item 2 of TempStor & return after VisibleIndexput x & "," after ImportListend ifset ItemDelimiter to "∞"end repeatdelete last character of ImportListif there is a window "PleaseWait" then close window "PleaseWait"-- ASKS THE USER TO CHOOSE RECIPES TO IMPORT ------- DISABLED BECAUSE OF PROBLEMS ----if InFileIndex is not empty then-- put "Choose recipes to import. [Command Or Shift click to select" &&¬-- "multiple recipes.]" into theMessage-- get showList(VisibleIndex,theMessage,true,true,"Import^,Cancel",0)-- if (line 1 of it is cancel) or (line 2 of it is empty) then-- exit ImportARfileOLD-- end ifbeepelseanswer "There are no new recipes in this file. (You already have"¬&& "recipes by all the names in this file."hide messageexit ImportARfileOLDend if-- IMPORT RECIPES ---------------------------------------set cursor to watch-- lock screenpush cardset lockMessages to trueset lockRecent to truePicture "PleaseWait",resource,Dialog-- put line 2 of it into ImportList-- -- number list with commas of line choicesset ItemDelimiter to ","put the number of items in ImportList into ImportListNum-- the number of recipes to importput empty into theListrepeat with RecipeNum = 1 to ImportListNum-- put item RecipeNum of ImportList into TheChoice -- this is the line number of the index-- put item 2 of line TheChoice of InFileIndex into ImportChoice -- this is the number of the item the entire file--put item RecipeNum of ImportList into ImportChoice--set ItemDelimiter to "∞"Put item ImportChoice of InfileText into TheImportRecipeif the result is not empty then put the resultdelete line 1 of TheImportRecipe -- clear off junkif ":" is not in line 1 of TheimportRecipethen delete line 1 of TheImportRecipe -- clear off junkset ItemDelimiter to ":"put item 1 of line 1 of TheImportRecipe into Categorydelete char 1 of item 2 of line 1 of TheImportRecipe -- deletes spaceput item 2 of line 1 of TheImportRecipe into RecipeNamePut RecipeName & return after theListdelete line 1 to 2 of TheImportRecipe -- leaves only Ingredients and directions-- answer Category & return & RecipeNameput empty into TheIngredientsput 1 into count -- i don't know it this is necessary or notput 0 into deleteCount -- i don't know it this is necessary or notrepeat with Count = 1 to the number of lines in TheImportRecipeif line Count of TheImportRecipe = "Ingredients:"then put Count into DeleteCountif line Count of TheImportRecipe = "Directions:"then exit repeatelse put line count of TheImportRecipe & return after TheIngredientsend repeatrepeat with x = DeleteCount down to 1 -- deletes blank and INgredient linesdelete line x of TheIngredientsend repeatrepeat with x = Count down to 1 -- deletes everything but directionsdelete line x of TheImportRecipeend repeatput TheImportRecipe into TheDirectionsput "Importing... (" & RecipeNum & "/" & ImportListNum & ")" && Category & ":" & RecipeNameAddNew RecipeName,Category -- CALLS THE STACK SCRIPTset cursor to watchPut TheIngredients into bg field "Ingredients"put TheDirections into bg field "directions"set ItemDelimiter to ","end repeathide messagesend "LockCard" to bg button "Lock"pop cardaddColor colorCard,stamp,1-- unlock screenif there is a window "PleaseWait" then close window "PleaseWait"ShowTheList TheListplay "Crystal2"end ImportARfileOLDon importAnyText inFileopen file infileread from file infile until endclose file infileput it into InFileText------------------set itemDelimiter to ":"put last item of InFile into theRecipeName------------------answer "The contents of this text"¬&& "file will be placed in a seperate window. You can then copy and paste" ¬&& "the information into a new recipe. You can create a blank recipe card"¬&& "now, or you can just view the recipe." with "cancel" or "create new" or "view"if it is cancel then exit ImportAnyTextput it into TheResponse------------------set cursor to watchput theRecipeName into WindowNameif there is a window WindowName then close Window WindowNameput "45,42,480,257" into TheRecttextoid WindowName,InFileText,BigWindoidZoom,"0 0 0,65535 65535 52428",theRect¬,true,Helvetica,12,Plainset the textWrap of window WindowName to trueset the locktext of window WindowName to false-------------------if TheResponse = view then exit ImportAnyTextglobal Categoryput bg field "Table Of Contents" of card 2 into TheListPut "Select a category for the imported recipe." into theMessagerepeat with x = 1 to the number of lines in TheListif Category = line x of TheList then exit repeatend repeatget showList(TheList,TheMessage,true,true,"OK^,Cancel",x)if line 1 of it is cancelthenclose window WindowNameexit importAnyTextend ifset cursor to watchput line (line 2 of it) of TheList into Category-------if there is a card theRecipeName of bg "recipes" then AddNewElse AddNew theRecipeName--------------put InFileText into bg field "Directions"if there is a window WindowName then close window WindowNameif the OptionKey is not downthen answer "The information from the text file has been put into the place"¬&& "for the directions. You will need to move the ingredients over"¬&& "by cutting and pasteing."global ImportModeput "True" into ImportModeend importAnyTexton ShowTheList TheList,TheRectif there is a window "Imported List"thenclose window "Imported List"elseset cursor to watchif TheRect is empty then put rect of bg field "Batch" of card 1 of bg "Recipes" into TheRectListoid "Imported List",TheList,TheRect,bigWindoidZoom,¬one,helvetica,12,"Click to view:","DontAllowReorg",0end ifend ShowTheList----------------------------------------------------------------------NEW SCRIPTS 2.3----------------------------------------------------------------------on ImportARFile inFile -- used with Amy's Recipes 2.3 or later--------------------------------------------------------------------- USES LOCAL VARIABLES:-- Infile = path to the TEXT file to be used-- InFileText = chunks of the InFile-- VerseName = name of a single verse being examined-- recordNo = the number of the currently imported record-- ImportList = list of the records imported-- theFields = list of fields to be included in the Import-- TheBackground = name of the background to be exported-- ItemDivider = one char string that acts as a seperator between items-- RecordDivider = one char string that acts as a seperator between verses--------------------------------------------------------------------set cursor to watchset lockMessages to trueset lockRecent to truelock screenwaitMess On--put "Category,Recipe Name,Ingredients,Directions" into theFieldsput "Recipes" into TheBackgroundput numToChar (29) into ItemDividerput numToChar (30) into RecordDividerput empty into ImportListput 0 into recordNoput 0 into FinalCountset cursor to watchpush cardgo bg TheBackgroundset itemDelimiter to ItemDivider--- READS THE LIST OF CATEGORIES, HOWEVER NOTHING IS THIS INFORMATION IS JUST TOSSED FOR RIGHT--- NOW. LATER THIS MIGHT BE USED TO ALLOW USER TO TELL WHERE IT WANTS ALL RECIPES IN A--- CERTAIN CATEGORY TO GO IF THERE IS NOT A MATCHING CATEGORY, BUT FOR NOW IT DOES NOT DO THISread from file inFile until RecordDivider-----------------------------------------------------------------------------------------------repeatread from file inFile until RecordDividerif it is not empty then put it into InFileTextelseclose file InFileexit repeatend ifadd 1 to RecordNoput item 2 of InFileText into RecipeNameput "Examining Record " && RecordNo & ":" && RecipeNameif there is not a card RecipeNamethenput item 1 of InFileText into CatNameif there is not a card CatName of bg "Contents" thenplay "crystal2"answer "Recipe:" && RecipeName & return & "Category:" && CatName & return & return & ¬"There is not a category for this recipe. Do you want to skip this recipe or select a" &&¬"category." with "skip" or "select"if it = "skip" then next repeatend ifput "Adding Recipe:" && RecipeNameif importList is empty then put RecipeName & return into ImportListelse put RecipeName & return after ImportListadd 1 to FinalCountAddNew RecipeName,CatName -- addnew adds the category if neededput bg field "category" into REALCAT -- repeat script replaces this category by accidentrepeat with x = 1 to the number of items in InfileText - 1 -- EXTRA BLANK FIELD IGNOREDset itemDelimiter to ","put item x of theFields into FieldNameset itemDelimiter to ItemDividerput item x of InFileText into bg field FieldNameend repeatput REALCAT into bg field "Category"end ifend repeatif finalCount = 0 thenlock screenpop cardaddColor ColorCard,stamp,1unlock screenwaitMess Offplay "Crystal2"answer "There were no new recipes imported. (Recipes with the same names as ones you already"¬&& "have in your cookbook are skipped.)"elsesend "lockCard" to bg button "Lock" of card 1 of bg "Recipes"lock screenpop cardaddColor ColorCard,stamp,1unlock screenwaitMess OffShowTheList ImportListplay "Crystal2"answer "Total new recipes imported:" && FinalCountend ifend ImportARFile-- on importText inFile-- -- Uses local variables:-- -- Infile = path to the TEXT file to be used-- -- Countfields = Number of fields in the imported TEXT file-- -- FieldList = Names of bg fields in the order they will be used-- ---------------------------------------------- set lockMessages to false-- set cursor to watch-- ---------------------------------------------- -- countFields of the TEXT File-- put 0 into countFields-- open file inFile-- put "dummy" into it-- repeat until it is empty-- read from file inFile until tab-- add 1 to countFields-- if it contains return then-- exit repeat-- end if-- end repeat-- close file inFile-- ---------------------------------------------- ---------------------------------------------- -- lining up incomming fields with bg fields-- open file inFile-- repeat with x = 1 to countFields - 1-- read from file inFile until tab-- delete last character of it-- Put "Please choose field for, '" & it & "'" into Dialogue-- get chooseBGfield (Dialogue)-- put it & return After FieldList-- end repeat-- -- this does the same for the last field-- read from file inFile until return-- Put "Please choose field for, '" & it & "'" into Dialogue-- get chooseBGfield (Dialogue)-- put it & return After FieldList-- close file inFile-- -- all done!-- ---------------------------------------------- -------------------------------- open file inFile-- put 1 into recNum-- -- loops through the cards & fields until the end of file-- -- this usually creates one or two extra cards, but it-- -- was easy to code.-- put "dummy" into it-- repeat until it is empty-- put "Now on record #" & recNum-- domenu "new card"-- repeat with x = 1 to countFields -1-- read from file inFile until tab-- -- this line removes the tab-- delete last character of it-- repeat while it contains quote-- delete char offset(quote,it) of it-- end repeat-- put line x of FieldList into FieldName-- if field FieldName is empty then put it into field FieldName-- else put "," & it after field FieldName-- end repeat-- -- now do the same for the last field-- read from file inFile until return-- put line (x+1) of FieldList into FieldName-- if field FieldName is empty then put it into field FieldName-- else put "," & it after field FieldName-- put empty into field "Don't Use"-- add 1 to recNum-- end repeat-- close file inFile-- -- ALL DONE!-- hide message-- answer "Done!" && recNum && "records written" with "Ok"-- end importText-------------------------------------------------------------------EXPORTING-------------------------------------------------------------------on exportSETUP-- FileType - the type of text file the user wants---- Choose the File Type -----------------------------------------------------------------------ANSWER "You have the choice of two different types of text files." & return & ¬" 1) A NORMAL text file that looks nice and can be read by humans on word processors." & ¬return & " 2) A BACK UP Text file designed to be imported into other Amy's Recipes Programs." ¬with "Normal" or "BackUp"put it into FileType--Put "Select with recipes you want to export:" into TheMessageif the short name of this bg = "Recipes" thenPut "All" & return & "Complete Category" & return &"Just This Recipe"¬& return & "Mini Cookbook" into TheListelse Put "All" & return & "Complete Category" & return & "Mini Cookbook" into TheListget showList(TheList,TheMessage,False,True,"OK^,Cancel",1)if (line 2 of it is empty) or (line 1 of it is cancel) then exit exportSETUPset cursor to watchput line (line 2 of it) of TheList into TheResultif TheResult = "all" then exportAll FileTypeif TheResult is "Complete Category" then exportCat FileTypeif TheResult = "Just This Recipe" then ExportOne FileTypeif TheResult = "Mini Cookbook" then ExportMini FileTypeend exportSETUPon ExportOne FileTypeput bg field "Recipe Name" into BatchListput bg field "Category" into CatListif filetype = "Normal" then ExportNormalText BatchList,BatchListelse ExportARFile BatchList,BatchList,CatListend ExportOneon ExportMini FileTypeput bg field "Batch" of card 1 of bg "recipes" into BatchListput empty into CatListrepeat with x = 1 to the number of lines in BatchListput line x of batchlist into CardNameif bg field "Category" of card CardName is not in CatListthen put (bg field "Category" of card CardName) & return after CatListend repeatif filetype = "Normal" then ExportNormalText BatchList,"Mini Cookbook"else ExportARFile BatchList,"Mini Cookbook",CatListend exportMinion exportCat FileTypeglobal Categoryput "Select which category you want to export as a TEXT file:" into TheMessageput bg field "Table of Contents" of Card 2 into TheListrepeat with x = 1 to the number of lines in TheListif Category = line x of TheList then exit repeatend repeatget showList(TheList,TheMessage,false,True,"OK^,Cancel",x)if (line 2 of it is empty) or (line 1 of it is cancel) then exit ExportCatelse put line (line 2 of it) of TheList into CatNameput bg field "Recipe Names" of card CatName into TheRecListif filetype = "Normal" then ExportNormalText TheRecList,CatNameelse ExportARFile TheRecList,CatName,CatNameend exportCaton exportAll FileTyperepeat with x = 1 to the number of cards in bg "Contents"put bg field "Recipe Names" of card x of bg "Contents" after BigListend repeatput bg field "table of contents" of card 1 of bg "Contents" into CatListput "Amy's Recipes" & the date into FileNameif filetype = "Normal" then ExportNormalText BigList,FileNameelse ExportARFile BigList,FileName,CatListend ExportAllon ExportARFile TheList,FileName,CatList -- EXPORTS AN AMY'S RECIPE FILE-- outFile = name and location of file to be saved-- outFileText = temporary storage for chunks of the outfile contents-- theFields = list of fields to be included in the export-- TheBackground = name of the background to be exported-- ItemDivider = one char string that acts as a seperator between items-- RecordDivider = one char string that acts as a seperator between verses-- HeaderVersion = First chunk of information that gives information about the file-- CatList = List of Categories exported--set cursor to watchset lockMessages to trueset lockRecent to true--put "Amy's Recipes 2.3 File:" into HeaderVersion--ask file "My TEXT Backup" with FileName & ".ARF"if it is empty then exit ExportARFileput it into outFileset cursor to watchset cantAbort of this stack to truewaitMess On--put "Category,Recipe Name,Ingredients,Directions" into theFieldsput "Recipes" into TheBackgroundput numToChar (29) into ItemDividerput numToChar (30) into RecordDivider---- PUTS A HEADER LINE B4 outFileText SO THE FILE WILL BE RECOGNIZED---- put "Saving information as" && outFileput HeaderVersion & return into outFileTextopen file outFilewrite outFileText to file outFile---- WRITES A LIST OF CATEGORIES AFTER THE HEADER LINE FOLLOWED BY A RecordDivider--put CatList & RecordDivider into outFileTextwrite outFileText to file outFile--push cardlock screengo bg theBackgroundput the number of lines in TheList into MaxNumberrepeat with x = 1 to MaxNumberset cursor to busyput line x of TheList into CardNameput "Writing AR File" && "(" & x &&"out of" && MaxNumber & ")" && CardNameput empty into outFileTextrepeat with y = 1 to the number of items in theFieldsput item Y of TheFields into ThisFieldput bg field ThisField of card CardName after outFileTextput ItemDivider after outFileTextend repeat -- end y repeatput RecordDivider after outFileTextwrite outFileText to file outFileend repeat -- end x repeatclose file outFilepop cardhide messagewaitMess offset cantAbort of this stack to falseend ExportARFileon ExportNormalText TheList,TheFileName -- THIS BUILDS A NORMAL TEXT FILE TO BE READ BY HUMANSAsk File "Enter name for recipe text file:" with TheFileNameif it is empty then exit ExportNormalTextset cursor to watchput it into OutFileNameput "__________________________________________________________" & return into DLineput "" into RDividerput TheList into BatchListput empty into OutFileTextput the number of lines in BatchList into MaxNumber--put "This File Was Made By Amy's Recipes by Image Works Plus Software" & return & return ¬into OutFileTextput "Writing file:" && OutFileNameopen file OutFileNamewrite OutFileText to file OutFileName--repeat with x = 1 to MaxNumberput empty into OutFileTextput line x of BatchList into CardNameput "Building NORMAL text file" && "(" & x && "of" && MaxNumber &"):" && CardName--repeat until "∞" is not in (bg field "Category" of card CardName)put " " into char offset("∞",bg field "Category" of card CardName) of bg field "Category" of card CardNameend repeatrepeat until "∞" is not in (bg field "Recipe Name" of card CardName)put " " into char offset("∞",bg field "Recipe Name" of card CardName) of bg field "Recipe Name" of card CardNameend repeatrepeat until "∞" is not in (bg field "ingredients" of card CardName)put " " into char offset("∞",bg field "ingredients" of card CardName) of bg field "ingredients" of card CardNameend repeatrepeat until "∞" is not in (bg field "directions" of card CardName)put " " into char offset("∞",bg field "directions" of card CardName) of bg field "directions" of card CardNameend repeat--put DLine & (bg field "Category" of card CardName) & ":" && ¬(bg field "Recipe Name" of card CardName) & return & DLine ¬& Return & "INGREDIENTS:" & return & (bg field "ingredients" of card CardName) ¬after OutFileTextif the last line of OutFileText is not empty then put return after OutFileTextif the last line of OutFileText is not empty then put return after OutFileTextput "DIRECTIONS:" & return & (bg field "Directions" of card CardName) after OutFileTextif the last line of OutFileText is empty then delete last line of OutFileTextput return & return after OutFileTextwrite OutFileText to file OutFileNameend repeatclose file OutFileNamehide messageend ExportNormalText-- need to import old files correctly -adding categories if needed (you already know all the cats)-- need to import new files correctly -- adding categories if needed (You don't know the cats)-- so write the cats at the top of the new file, then the user can be prompt if he wants to-- add a new cat (see if it is possible) or if he wants to put those recipes into an existing cat-- or just doesn't want to import them.-- yeah - let them pick which categories they want to import (all or multiple)-- then see if those categories already exists or need to be made or imported into and existing-- cat.-- Also make a list of all new recipes in a floating window like before.</script>
</part>
<part>
<id>41</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>15</left>
<top>380</top>
<right>28</right>
<bottom>392</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>hideIt2</name>
<script></script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>369</left>
<top>348</top>
<right>411</right>
<bottom>398</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>22336</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>on mouseUpplay "click"helpMeend mouseUpon mouseenterFullBalloons showDirect,"Click me view and or print the instructions."end mouseenter</script>
</part>
<part>
<id>43</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>285</left>
<top>348</top>
<right>367</right>
<bottom>398</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>22003</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<name>Add New Recipe</name>
<script>on mouseUpplay "click"GetCategoryend mouseupon mouseenterFullBalloons showDirect,"Click me to add a new recipe." -- ¬-- &&"(" & bg field "index name" & ")"end mouseenter</script>
</part>
<part>
<id>44</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>73</left>
<top>348</top>
<right>155</right>
<bottom>398</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>22676</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<name>Mini Cookbook</name>
<script>on mouseUpplay "click"showbatchlistend mouseupon mouseenterFullBalloons showDirect,"Click me to view your Mini-Cookbook."¬&& "(The Mini-Cookbook allows you to select muliple recipes for printing.)"end mouseenter</script>
</part>
<part>
<id>45</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>156</left>
<top>348</top>
<right>188</right>
<bottom>372</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>22255</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<name>Add to Mini</name>
<script>on mouseUpplay "click"if the optionkey is down then addfromallelse addtolistend mouseupon mouseenterFullBalloons showDirect,"Click me add this recipe to your Mini-Cookbook."¬&& "Hold down the OPTION key and click to add multiple recipes from a master list."end mouseenter</script>
</part>
<part>
<id>46</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>157</left>
<top>374</top>
<right>189</right>
<bottom>398</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>22240</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<name>Remove from Mini</name>
<script>on mouseUpplay "click"if the optionkey is down then deletemultipleelse removefromlistend mouseupon mouseenterFullBalloons showDirect,"Click me to remove this recipe from your Mini-Cookbook."¬&& "Hold down the OPTION key and click to delete multiple recipes."end mouseenter</script>
</part>
<part>
<id>47</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>40</left>
<top>348</top>
<right>72</right>
<bottom>372</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Clear</name>
<script>on mouseUpplay "click"clearlistend mouseupon mouseenterFullBalloons showDirect,"Click me clear all recipes from the Mini-Cookbook." -- ¬-- &&"(" & bg field "index name" & ")"end mouseenter</script>
</part>
<part>
<id>48</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>40</left>
<top>374</top>
<right>72</right>
<bottom>398</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Print</name>
<script>on mouseUpplay "click"printbatchend mouseupon mouseenterFullBalloons showDirect,"Click me print all the recipes in your Mini-Cookbook." -- ¬-- &&"(" & bg field "index name" & ")"end mouseenter</script>
</part>
<part>
<id>49</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>505</left>
<top>348</top>
<right>537</right>
<bottom>398</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>22539</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Find</name>
<script>on mouseUpplay "click"domenu "find..."end mouseUpon mouseenterput "Click me to find recipes by searching for a word or phrase." into¬TheMessageFullBalloons showDirect,TheMessageend mouseenter</script>
<text>Layered DipLow Cal Spice Tea MixMexican Cheese Fudge</text>
</content>
<name>Recipes</name>
<script>on openbackgroundglobal ColorONThisBgMenus-- if ColorOn = "True" -- this may not be needed to addcolor command-- are scripted properly-- then-- addcolor colorcard-- addColor disable -- no need to update until leaving bg-- end ifend openbackgroundon closeBackgroundglobal ColorON-- if ColorOn = "True" -- this may not be needed to addcolor command-- are scripted properly-- if ColorOn = "True"-- then addColor enable -- no need to update until leaving bgend CloseBackgroundon ThisBgMenus-- each bg is resonsible for setting up the menus for itselfif there is a menu "Mini Cookbook"thenenable menuitem 1 of menu "Mini Cookbook"enable menuitem 2 of menu "Mini Cookbook"end ifif there is a menuItem "Print Recipe" of menu "File"then enable menuItem "Print Recipe" of menu "File"if there is a menuItem "Delete Recipe" of menu "Edit"then enable menuItem "Delete Recipe" of menu "Edit"end ThisBgMenuson closecardif icon of bg button "lock" = 145thensend LockCard to bg button "lock"end ifpass closeCardend closecardon opencardNumberCardpass openCardend opencardON NumberCardput number of last card of this bg into lastcput number of first card of this bg into firstcput lastc +1 - firstc into totalcput (number of this card +1 - firstc) && "of" &&¬totalc into bg field "page"end NumberCardon arrowKey directionif locktext of bg field "directions" = falsethenif direction = "up"thentype "/"else send ("arrowkey" && direction) to HyperCardelse if direction is "down" then play nothingelse if direction is "up" then play nothingelse pass arrowkeyend arrowkeyOn DeleteRecipeif the OptionKey is not downthenanswer "Are you really sure that you want to delete this recipe. This"¬&& "decision CANNOT be undone." with yes or cancelif it is cancel then exit DeleteRecipeend ifset cursor to watchlock screenput bg field "Recipe Name" into RecipeNameput bg field "Category" into CatNameput bg field "Recipe Names" of card CatName into OldCatListput offset(RecipeName,OldCatList) into StartPointput the number of characters in RecipeName + StartPoint into EndPoint -- deletes name and return markput empty into char StartPoint to Endpoint of OldCatListput OldCatList into bg field "Recipe Names" of card (bg field "Category")if there is a window (bg field "Category")then set text of window (bg field "Category") to OldCatListplay "Tear"push next card of this bgdomenu "delete card"pop cardglobal ColorONif ColorOn = "True" thenAddColor colorCard,dissolve,10unlock screenelse unlock screen with visual dissolveend DeleteRecipeon PrintRecipeask "How many copies of this recipe do you want to print" with 1if it is not a number or it < 1 then exit PrintRecipeput it into TotalCopiesif TotalCopies > 1thenAnswer "Print copies on SEPERATE pages or CONTINUOUS?"¬& return & return & "(The continuous response lets you print the copies on the same page and you cut them out - saves paper.)" ¬with "cancel" or "Continuous" or "Separate"if it is cancel then exit PrintRecipeelse put it into Formend ifif Form = "Continuous"thenopen report printing with template "Cook Book"repeat with Count = 1 to TotalCopiesprint this cardend Repeatclose printingelserepeat with Count = 1 to TotalCopiesopen report printing with template "Cook Book"print this cardclose printingend Repeatend ifend PrintRecipe-- Mini Cookbook MENU -------------------------------------------------------on AddToList Nameif name is empty then put bg field "Recipe Name" into Nameif Name & return is in bg field "Batch" then exit AddToListput name & Return after bg field "batch"Sort lines of bg field "batch"if there is a window "Mini Cookbook"thenif the number of lines in bg field "Batch" = 1thenput rect of window "Mini Cookbook" into TheRectclose window "Mini Cookbook"ShowBatchList TheRectelse set text of window "Mini Cookbook" to bg field "Batch"set the selectedLine of window "Mini Cookbook" to 0end ifend AddToListon RemoveFromList RecipeNameif RecipeName is empty then put bg field "Recipe Name" into RecipeNamerepeat with x = number of lines of bg field "Batch" down to 1if line x of bg field "Batch" = RecipeNamethen delete line x of bg field "Batch"end repeatif there is a window "Mini Cookbook"then set text of window "Mini Cookbook" to bg field "Batch"end RemoveFromListon ClearListanswer "Are you sure you want to clear the Mini Cookbook list?"¬with "yes" or "cancel"if it = "yes" then put empty into bg field "Batch"if there is a window "Mini Cookbook"then set text of window "Mini Cookbook" to bg field "Batch"end ClearListon DeleteMultiple -- MAKE THIS FASTERPut "Mini Cookbook List. Hold down the command key to select" &&¬"multiple lines to delete." into TheMessageput bg field "Batch" into BatchListget showList(BatchList,TheMessage,true,true,"Remove,View^,Cancel",0)if line 1 of it = "Cancel" then exit DeleteMultipleelse if line 1 of it = "View"thenplay "slide"do visual wipe down very fastgo card (line (item 1 of line 2 of it) of BatchList)else if line 1 of it = "Remove"thenset cursor to watchPut line 2 of it into RecipeNames -- numbers seperated by a commarepeat with Z = number of items in RecipeNames down to 1set cursor to busydelete line (item Z of recipeNames) of BatchListend repeatput BatchList into bg field "Batch"if there is a window "Mini Cookbook"thenput rect of window "Mini Cookbook" into TheRectclose window "Mini Cookbook"ShowBatchList TheRectend ifend ifend DeleteMultipleon ShowBatchList TheRectif there is not a window "Mini Cookbook"thenset cursor to watchif TheRect is empty then put rect of bg field "Batch" into TheRectListoid "Mini Cookbook",bg field "Batch",TheRect,bigWindoidZoom,¬one,helvetica,12,"Click to view:","DontAllowReorg",0else show window "Mini Cookbook"end ShowBatchListon AddFromAllset cursor to watchput empty into BigListrepeat with x = 2 to the number of cards in bg "Contents"put bg field "Recipe Names" of card x of bg "Contents" after BigListend repeatsort lines of BigListPut number of lines in BigList && "Recipes Total." &&¬"Use COMMAND KEY and CLICK to add multiple recipes to the" &&¬"Mini Cookbook list." into TheMessageset cursor to arrowget showList(BigList,TheMessage,true,true,"Add,View^,Cancel",0)if line 1 of it = "Cancel" then exit AddFromAllelse if line 1 of it = "View"thenplay "slide"do visual wipe down very fastgo card (line (item 1 of line 2 of it) of BigList)else if line 1 of it = "Add"thenset cursor to watchPut line 2 of it into RecipeNamesput bg field "Batch" into BatchListrepeat with ItemX = 1 to the number of items in RecipeNamesset cursor to busyput (line (item Itemx of RecipeNames) of BigList) & return¬into TheRecipeName -- put individual names into variableif TheRecipeName is not in BatchList then put TheRecipeName ¬before BatchList -- check for duplicate recipesend repeatsort lines of BatchListput BatchList into bg field "Batch"if there is a window "Mini Cookbook"thenif the number of lines in bg field "Batch" = 1thenput rect of window "Mini Cookbook" into TheRectclose window "Mini Cookbook"ShowBatchList TheRectelseset text of window "Mini Cookbook" to bg field "Batch"end ifset the selectedLine of window "Mini Cookbook" to 0end ifend ifend AddFromAllon FixBatchListput bg field "Batch" into BatchListrepeat with x = number of lines of bg field "Batch" down to 1if line x of BatchList is empty then delete line x of bg field "Batch"else if there is not a card (line x of BatchList) then delete line x of bg field "Batch"end repeatif there is a window "Mini Cookbook"then set text of window "Mini Cookbook" to bg field "Batch"end FixBatchList------ LISTOID HANDLERS -------------------------------------------- on ListoidSelect What,Where-- put Where & " : " & What-- wait 1 sec-- end ListoidSelect-- on closeListoid Which-- put "You closed windoid “" & Which & "”"-- end closeListoid-- on controlKey What-- if there is a window "TheList"-- then send numToChar(What) to window "TheList"-- else pass controlKey-- end ControlKey-- on clickInListoid Which -- MOVED TO STACK SCRIPT-- play "Click"-- play "slide"-- visual wipe down very fast-- Go Card (the selectedText of window which)-- end clickInListoid----------------------------------------------------------------------------on deletecardsset lockMessages to trueset lockRecent to truelock screenask "how many"put it into TheNumrepeat with x = 1 to TheNumdomenu "Delete card"set cursor to busyend repeatend deletecards</script>
